if ($a)
{
	print "The string is not empty\n";
}
else
{
	print "The string is empty\n";
}